home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / ungeduld. input (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  41 lines
  1. 10 print"[147]ungeduldiges input  wird installiert
  2. 15 [143] frei nach compute!'s gazette juni 87, a.chandler
  3. 16 [143] stark ueberarbeitet von nikolaus heusler
  4. 20 a[178][194](55)[170][194](56)[172]256
  5. 30 a[178]a[171]160:h[178][181](a[173]256):[151]55,a[171]256[172]h:[151]56,h
  6. 40 [151]766,a[171]256[172]h:[151]767,h
  7. 50 [135]v:[151]a[170]i,v:t[178]t[170]v:i[178]i[170]1:[139]i[179]159[167]50
  8. 60 [139]t[177][179]19491[167][153]"pruefsummenfehler!":[128]
  9. 70 a[178]a[170]100:h[178][181](a[173]256):[151]1020,76:[151]1021,a[171]256[172]h:[151]1022,h
  10. 80 [153]"installation abgeschlossen!"[166]53)"nikolaus heusler (c) nh-210490-arr
  11. 90 goto 200 : rem new
  12. 100 data72,138,72,152,72,198,250,208,79,169,60,133,250,165,252,141,24,212,165,251
  13. 102 data141,38,216,141,39,216,169,32,141,38,4,141,39,4,165,253,72,74,74,74,74,9
  14. 104 data48,201,48,240,3,141,38,4,104,41,15,9,48,141,39,4,169,,141,24,212,165,253
  15. 106 data248,56,233,1,133,253,216,201,153,208,12,162,,134,254,232,134,198,169,13
  16. 108 data141,119,2,104,168,104,170,104,76,158,2,234,234,234,234,234,234,173,20,3
  17. 110 data141,159,2,173,21,3,141,160,2,165,253,240,11,170,248,169,,24,105,1,202,208
  18. 112 data250,216,133,253,169,1,133,250,133,254,169,76,141,158,2,120,173,254,2,141
  19. 114 data20,3,173,255,2,141,21,3,88,96,0,0
  20. 200 poke53280,6:poke53281,6:print"[144][147]":col=1:vol=8:ta=10
  21. 210 print"beantworten sie in 10 sekunden -
  22. 220 [153]"von welcher marke ist dieser computer ?
  23. 230 gosub5000:inputa$:gosub5100:print
  24. 240 ifflgthen260
  25. 245 ifa$="commodore"thenprint"richtig, aber sie haben vergessen, die
  26. 246 [139]a$[178]"commodore"[167][153]"return-taste zu druecken!":[137]280
  27. 250 [153]"sorry! das dauerte zu lang.":[141]5200:[137]280
  28. 260 [139]a$[178]"commodore"[167][153]"richtig! es waren noch"tr"sek. uebrig.":[137]280
  29. 270 [153]"leider falsch!
  30. 280 end
  31. 5000 rem timer aktivieren
  32. 5010 poke251,col:poke252,vol:poke253,ta:sys1020:return
  33. 5100 rem timer off
  34. 5110 sys65418:poke1062,32:poke1063,32:tr=1+peek(253)-int(peek(253)/16)*6
  35. 5120 iftr=100thentr=.
  36. 5130 flg=peek(254):return
  37. 5200 rem gong
  38. 5210 s=54272:forl=.to24:pokes+l,.:next:pokes+1,130:pokes+5,9:pokes+15,30
  39. 5220 pokes+24,vol:pokes+4,21:fort=1to300:next:pokes+4,20
  40. 5230 fort=1to500:next:forl=.to24:pokes+l,.:next:return
  41.